home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CoolWB / Icons / Other / Twilight / syspic_3.0 / Install SysPic < prev    next >
Text File  |  1996-03-18  |  2KB  |  100 lines
  1.  
  2. ; SysPic Installer Script
  3. ; $VER: Install SysPic 3.0 (18.03.96)
  4. ; (c) Grzegorz Calkowski / TBR
  5.  
  6. ; =======================================================================
  7.  
  8. ; Strings
  9.  
  10. (set #kick39 "SysPic requires at least Kickstart 3.0 (v39) !")
  11. (set #syspicdir "Select drawer for SysPic executable")
  12. (set #closepicdir "Select drawer for ClosePic")
  13. (set #cmdsdir "Select drawer for additional commands")
  14. (set #selcmds "Select what commands to install")
  15. (set #askbonus "\nDo you want to install bonus pictures?")
  16. (set #bonusdir "Select drawer for pictures")
  17. (set #selpics "Select what pictures to install")
  18. (set #messy "\nSysPic has been installed.\n\nNow you have to edit startup-sequence by hand -\ninsert 'SysPic <filename> <options>' command\nright after 'SetPatch' command.\n\nConsult the documentation for details.")
  19.  
  20. ; =======================================================================
  21.  
  22. (if (< (/ (getversion) 65536) 39)
  23.     (abort #kick39)
  24. )
  25.  
  26. (set cpu (database "cpu"))
  27. (set prgver "SysPic")
  28. (set picsdir "")
  29.  
  30. ; Determine SysPic version
  31.  
  32. (if (OR (= cpu "68020") (= cpu "68030"))
  33.     (set prgver "SysPic.020")
  34.     (if (>= cpu "68040")
  35.         (set prgver "SysPic.040")
  36.     )
  37. )
  38.  
  39. (if (exists 'C2:' (noreq))
  40.     (set destdir "C2:")
  41.     (set destdir "C:")
  42. )
  43.  
  44. (copyfiles
  45.     (source (cat "C/" prgver))
  46.     (dest (set destdir (askdir
  47.         (help @askdir-help)
  48.         (default destdir)
  49.         (prompt #syspicdir)
  50.     )))
  51.     (newname "SysPic")
  52.     (help @copyfiles-help)
  53. )
  54.  
  55. (set @default-dest destdir)
  56.  
  57. (copyfiles
  58.     (source "WBStartup/ClosePic")
  59.     (dest (askdir
  60.         (prompt #closepicdir)
  61.         (help @askdir-help)
  62.         (default 'SYS:WBStartup')
  63.     ))
  64.     (infos)
  65.     (help @copyfiles-help)
  66. )
  67.  
  68. (copyfiles
  69.  (prompt #selcmds)
  70.     (source "C/")
  71.  (pattern "~S#?")
  72.     (dest (set cmdsdir (askdir
  73.         (help @askdir-help)
  74.         (default destdir)
  75.         (prompt #cmdsdir)
  76.     )))
  77.     (confirm)
  78.     (help @copyfiles-help)
  79. )
  80.  
  81. (if (askbool
  82.     (prompt #askbonus)
  83.     (help ""))
  84.  
  85.     (copyfiles
  86.         (prompt #selpics)
  87.         (source "Bonus")
  88.         (pattern "#?.ilbm")
  89.         (dest (set picsdir (askdir
  90.             (prompt #bonusdir)
  91.             (help @askdir-help)
  92.             (default 'SYS:Prefs/Presets')
  93.         )))
  94.         (confirm)
  95.         (help @copyfiles-help)
  96.     )
  97. )
  98.  
  99. (message #messy)
  100.